﻿Imports DTO, DAO
Public Class PhieuTraSachBUS
    Public Function LayTongNoTheoMaDocGia(ByVal maDocGia As Integer) As Integer
        Dim dao As New PhieuTraSachDAO
        Return dao.LayTongNoTheoMaDocGia(maDocGia)
    End Function

    Public Function ThemPhieuTra(ByVal sql As String) As Integer
        Dim dao As New PhieuTraSachDAO()
        Return dao.ThemPhieuTra(sql)
    End Function

    Public Function LayDSPhieuTra() As List(Of PhieuTraSachDTO)
        Dim dao As New PhieuTraSachDAO()
        Return dao.LayDSPhieuTra()
    End Function

End Class
